home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.20010306-20010921 / 000312_shifeux@hotmail.com_Tue Aug 14 14:40:36 EDT 2001.msg < prev    next >
Text File  |  2001-09-20  |  5KB  |  124 lines

  1. Article: 12671 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!panix!howland.erols.net!news.maxwell.syr.edu!newsfeed.stanford.edu!postnews1.google.com!not-for-mail
  3. From: shifeux@hotmail.com (Shifeux)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: Re: Kermit Scripts and Shell Scripts
  6. Date: 14 Aug 2001 11:29:56 -0700
  7. Organization: http://groups.google.com/
  8. Lines: 105
  9. Message-ID: <336f652d.0108141029.39b5169f@posting.google.com>
  10. References: <336f652d.0108130841.43ce0ed5@posting.google.com> <9l909g$bse$1@newsmaster.cc.columbia.edu> <336f652d.0108140545.1a1c8658@posting.google.com> <9lbdsm$35j$1@newsmaster.cc.columbia.edu>
  11. NNTP-Posting-Host: 146.145.217.201
  12. Content-Type: text/plain; charset=ISO-8859-1
  13. Content-Transfer-Encoding: 8bit
  14. X-Trace: posting.google.com 997813796 20928 127.0.0.1 (14 Aug 2001 18:29:56 GMT)
  15. X-Complaints-To: groups-abuse@google.com
  16. NNTP-Posting-Date: 14 Aug 2001 18:29:56 GMT
  17. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:12671
  18.  
  19. I appologize for my 'jumbled' postings. I have several variations of
  20. this script and I have ended up confusing the issue. The switch code
  21. was just a different variation I tried when the IF and even XIF didn't
  22. work for me. I plugged your piece of code into the script and I am
  23. still getting the same result. The script crashes at the run <perl
  24. script> command. What I am trying to do from a theory standpoint is
  25. parse a directory listing on a remote machine to get a listing of the
  26. files in a text file. This text file will be converted into a listing
  27. and sent back to the remote system after I download the files in the
  28. dir.  I have a perl parse routine which does contain the
  29. #!/usr/bin/perl in the first line (as a side note, my kermit script
  30. does not contain a similar statement). The perl command will work
  31. using the shell and using kermit, but when I use the 'run' command in
  32. the script I have problems with the script itself. At the point of the
  33. run command the script halts abruptly. It does not execute the perl
  34. script at all which is indicated by no output file from the perl
  35. script.  I have commented out the run command line and added an echo
  36. command and i see the echo and the script continues on as expected.
  37. But when the run command is followed by the perl script name the
  38. script ends abruptly. Am I missing something in the way kermit calls
  39. upon the shell to execute the perl script?
  40.  
  41.  
  42. fdc@watsun.cc.columbia.edu (Frank da Cruz) wrote in message news:<9lbdsm$35j$1@newsmaster.cc.columbia.edu>...
  43. > In article <336f652d.0108140545.1a1c8658@posting.google.com>,
  44. > Shifeux <shifeux@hotmail.com> wrote:
  45. > : I am using:  C-Kermit 7.0.197, 8 Feb 2000, for Data General DG/UX
  46. > : R4.20  I am trying to call the perl script from within an IF statement
  47. > : using the "run" command (I also toyed around with "exec")  The perl
  48. > : does work fine by itself. It seems like the IF construct is causing
  49. > : the Kermit script to crash at the point of the run command. When I
  50. > : comment out the IF statement the script runs fine.   I have tried
  51. > : various different things but nothing will let this run command run.
  52. > : Here is a listing of the latest try at the if statement.
  53. > : 
  54. > : if failure timeout
  55. > : 
  56. > : minput 10 {No files found} {Total of}
  57. > : switch \v(minput) {
  58. > :         :1, if failure write TRANSACTION-LOG Files Found\13\10, define
  59. > : \%o 1, br
  60. > : eak
  61. > :         :2, cp /kermit_scripts/\%r.termlog
  62. > : /cleoa+/kermit_scripts/\%r.files, break
  63. > : }
  64. > :             run /kermit_scripts/xxxxxxx.pl, pause 5, -
  65. > :             define \%o 1, break
  66. > : 
  67. > : 
  68. > : input 10 {choice : }
  69. > : if failure timeout
  70. > : 
  71. > OK, this is all fractured and hard to read; I assume you're not trying to
  72. > run a fractured original.
  73. > "run /kermit_scripts/xxxxxxx.pl" should work if the xxxxxxx.pl file contains
  74. > a first line that looks like:
  75. > #!/usr/bin/perl
  76. > and it has execute permission:
  77. >  1. Can you run it from the shell prompt by typing its name?
  78. >  2. If so, can you run it from Kermit by typing
  79. >     "run /kermit_scripts/xxxxxxx.pl" at the C-Kermit> prompt?
  80. > Assuming the answer to both is yes, let's try to reconstruct your
  81. > fractured script:
  82. >   minput 10 {No files found} {Total of}
  83. >   switch \v(minput) {
  84. >     :1, if failure write TRANSACTION-LOG Files Found\13\10
  85. >         define \%o 1
  86. >         break
  87. >     :2, cp /kermit_scripts/\%r.termlog /cleoa+/kermit_scripts/\%r.files
  88. >      break
  89. >   }
  90. >   run /kermit_scripts/xxxxxxx.pl
  91. >   pause 5
  92. >   define \%o 1
  93. >   break
  94. > Well, it's a bit confusing.  The RUN command looks like it should be
  95. > a SWITCH clause (because of the BREAK) but it's outside the SWITCH
  96. > statement.  What's the BREAK for?  And which IF statement are you talking
  97. > about, that causes the script to crash?  The only one I see is the IF FAILURE
  98. > in case 1 of the SWITCH (which doesn't make much sense).  Does the following
  99. > make more sense?
  100. >   minput 10 {No files found} {Total of}
  101. >   if failure stop 1 MINPUT timed out.
  102. >   switch \v(minput) {
  103. >     :1, writeln TRANSACTION-LOG Files Not Found
  104. >         define \%o 1
  105. >         break
  106. >     :2, cp /kermit_scripts/\%r.termlog /cleoa+/kermit_scripts/\%r.files
  107. >         run /kermit_scripts/xxxxxxx.pl
  108. >         pause 5
  109. >         define \%o 1
  110. >         break
  111. >   }
  112. > - Frank
  113.